perm filename TTXSEM.DAT[TEX,DEK] blob
sn#400179 filedate 1978-11-30 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00004 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 (Changes to TEXSEM for typewriter simulation)
C00007 00003 Insert the following line into the mathglue procedure on page 14:
C00008 00004 Insert the following line into routine [hmode+spacer] on page 18:
C00009 ENDMK
C⊗;
(Changes to TEXSEM for typewriter simulation)
The following information replaces the latter part of page 7:
preload_with bin('077),rel('077),'077,'077,bin('077),'077,'077,'077,
comment null(center-dot),down,alpha,beta,meet,not,epsilon,pi;
'077,'077,'077,'077,bin('453),bin('077),'077,'077,
comment lambda,gamma,delta,IFSUAI integral ENDSUAI IFMIT up ENDMIT,
plsmns,circplus,infinity,partl;
rel('077),rel('077),bin('077),bin('077),'077,'077,bin('077),rel('077),
comment cont_in,contains,cap,cup,for_all,exists,circtms,dblarrow;
'430,rel('077),'077,rel('433),rel('474),rel('476),rel('475),bin('077),
comment IFSUAI underline ENDSUAI IFMIT left ENDMIT,right,
IFSUAI tilde ENDSUAI IFMIT uneq ENDMIT,
IFSUAI uneq ENDSUAI IFMIT diamond ENDMIT,
lseq,gteq,equiv,join;
'077,cls('41),'42,'43,'44,'45,'46,cls('47),
comment space,exc,dblquotes,sharp,dollar,percent,ampersand,apost;
opn('50),cls('51),'52,bin('53),punct('54),bin('55),'56,'57,
comment left_paren,right_paren,astrsk,plus,comma,minus,period,slash;
'60,'61,'62,'63,'64,'65,'66,'67,
comment 0,1,2,3,4,5,6,7;
'70,'71,'72,punct('73),rel('74),rel('75),rel('76),cls('77),
comment 8,9,colon,semicolon,less,equal,greater,query;
'100,'301,'302,'303,'304,'305,'306,'307,
comment at,A,B,C,D,E,F,G;
'310,'311,'312,'313,'314,'315,'316,'317,
comment H,I,J,K,L,M,N,O;
'320,'321,'322,'323,'324,'325,'326,'327,
comment P,Q,R,S,T,U,V,W;
'330,'331,'332,opn('450),bin('457),cls('451),rel('077),rel('077),
comment X,Y,Z,left_bracket,backslash,right_bracket,
IFSUAI up ENDSUAI IFMIT up ENDMIT,
IFSUAI left ENDSUAI IFMIT underscore ENDMIT;
opn('047),'341,'342,'343,'344,'345,'346,'347,
comment rev_apostrophe,a,b,c,d,e,f,g;
'350,'351,'352,'353,'354,'355,'356,'357,
comment h,i,j,k,l,m,n,o;
'360,'361,'362,'363,'364,'365,'366,'367,
comment p,q,r,s,t,u,v,w;
'370,'371,'372,opn('173),'174,
IFSUAI bin('077) ENDSUAI IFMIT cls('175) ENDMIT,
IFSUAI cls('176) ENDSUAI IFMIT rel('077) ENDMIT,
IFSUAI bin('077) ENDSUAI IFMIT op('077) ENDMIT;
comment x,y,z,left_brace,absolute,
IFSUAI diamond ENDSUAI IFMIT rightbrace ENDMIT,
IFSUAI rightbrace ENDSUAI IFMIT tilde ENDMIT,
IFSUAI hat ENDSUAI IFMIT integral ENDMIT;
saf integer array mathdecode[0:'177] # decoding table for SUAI characters;
comment The following variables are used to govern the layout of displayed
equations. Processing of displays is a relatively straightforward addition
to the processing of math formulas in text lines, most of the code for this
appears in procedure "finishdisplay";
integer eqnobox # points to box containing an equation number, if present;
real abovedisplaywidth # amount of text on the line before a displayed equation
(if small enough, the dispskip glue will be omitted over the equation);
Insert the following line into the mathglue procedure on page 14:
if x<.15 then x←0 else if x<1.0 then x←0.5; y←0; z←0 # this is for typewriters;
Insert the following line into routine [hmode+spacer] on page 18:
if spacefactor > 2.0 then gluespace(q)←2.0*gluespace(p) else